library(data.table)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:data.table':
## 
##     between, first, last
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(igraph)
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:dplyr':
## 
##     as_data_frame, groups, union
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
set.seed(1510)
network_small_sample_size_file = "/home/j.aguirreplans/Projects/Scipher/SampleSize/data/out/networks_scipher/all_samples/main_core/spearman_scipher_all_samples_size_10_rep_1_edges_100000_main_core_subgraph.txt"
network_large_sample_size_file = "/home/j.aguirreplans/Projects/Scipher/SampleSize/data/out/networks_scipher/all_samples/main_core/spearman_scipher_all_samples_size_580_rep_1_edges_100000_main_core_subgraph.txt"
network_small_sample_size = read_graph(file = network_small_sample_size_file, format = "graphml")
network_large_sample_size = read_graph(file = network_large_sample_size_file, format = "graphml")

network_small_sample_size_file = "/home/j.aguirreplans/Projects/Scipher/SampleSize/data/out/networks_scipher/all_samples/disease_genes/spearman_scipher_all_samples_size_10_rep_1_edges_100000_disease_genes_subgraphs/arthritis.rheumatoid.txt"
network_large_sample_size_file = "/home/j.aguirreplans/Projects/Scipher/SampleSize/data/out/networks_scipher/all_samples/disease_genes/spearman_scipher_all_samples_size_580_rep_1_edges_100000_disease_genes_subgraphs/arthritis.rheumatoid.txt"
network_small_sample_size = read_graph(file = network_small_sample_size_file, format = "graphml")
network_large_sample_size = read_graph(file = network_large_sample_size_file, format = "graphml")